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TITLE 

TYPE 

NUMBER OF WORDS 

TEMPORARY 

STORAGE 

DURATION 



Loop Cycling Control (SADOI or DOl) 
Closed with One program parameter 
21 



0, 1, 2 

2 milliseconds first time through, 1 millisecond each 

cycle thereafter* 

Adjacent to code ~ 17 

Adjacent to 0, 1, 2 ~ 60 

Adjacent to p, p+1 ~ 35 

This routine will arrange a cycling around a loop of 
orders for m times ( 1 < m < 127 ), If this routine is located at t, entry 
is made via the following orders: 



RAR 



DESCRIPTION 



p 


50 


mF 




50 


pF 


p + 1 


26 


tF 




22 


or 




26 


aF 



The right hand order at (p + l) is the transfer to the 
"beginning of the routine to he cycled. After m cycles, the final exit is made 
to the left hand order at p + 2. 
CODING NOTES 1. The value of m includes the first passage through the 

routine to be cycled. 

-■5 -12 
2. During cycling, the count is stored in the 2 J to 2 

digits of p. Consequently, the left hand order at p, if printed out during 

a cycle will read 5B nF where B may range from to 7« Following completion of 

the cycling, the order pair at p is returned to its original value. 

3» Since all information pertinent to the cycling is 

stored in the routine being cycled, this subroutine may be used to control any 

number of simultaneous loops. 



TECHNICAL NOTES i 



- 2 - 



On first entry to this routine at t, the value of -m 



-5 -12. 

is stored in the 2 to 2 digits of p and the cycling count is kept there, 

The transfer address in the left hand order of (p + l) is changed to (t + 8) 
for subsequent entries . On the completion of cycling, this address is re- 
stored to the value t and the order pair at p returned to its original 
form . 
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RMB/: 



ns 



LOCATION 


ORDER 




NOTES PAGE L 


Wl 




OOK (Wl) 











4l F 

S5 F 








1 


40 IF 
46 F 




m.2" 19 at 




2 


4-2 5L 
Jb^ oL 




p as address 




3 


42 TL 
19 10F 




2- 11 




. 4 


LO F 
00 7F 




-5 -12 
-m in 2 ^ to 2 




5 


l4 IF 










4of 


By 2L 


Replace 




6 


40 1F 
50 IF 








7 


L5 1TL 










46 F ;■:■■ 


By 3L 


Set L.H. order (p+l) for 2nd entry 




8 


S5 L 
40 2F 




2nd entry 




9 


42 14L 
42 19L 




p as address 




10 


S5 58F 
L4 6l 








11 


42 16L 
42 17L 




p + 1 as address 




12 


L4 6l 

42 20L 




p + 2 as address 




13 


19 11F 
L4 2F 




2- 12 

Increase count and replace 




l4 


40 2F 

40 F ; 


By 9L 






15 


00 5F 
36 17L 




Test for cycle end 




16 


00 l^F 






1 




22 F 


By 11L 


Exit to loop 













LOCATION 


ORDER 




NOTES PAGE 2 Wl 


17 


L5 8L 

J+6F : 




Reset L.H. order (p+l) for first entry 


18 


09 IF 








10 kF 




Reset N(p) 


19 


Lk 2F 








kOF _■ 


By 9L 




20 


00 10F 








26 F - 


By 12L 


Final Exit 


,- 


■ 







